home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.3
/
Video Toaster v4.3.iso
/
4.2
/
arexx
/
editor
/
oz
/
morenews.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-04-16
|
949b
|
43 lines
/* This displays doc file in "More" window */
/* By Aussie - ©1995 Michael Holten */
call remlib('ToasterARexx.port')
call remlib('PROJECT_REXX_PORT')
call addlib('PROJECT_REXX_PORT' , 0)
call addlib('ToasterARexx.port' , 0)
if ~exists('c:more') then do
call req_tell("Sorry!"," This script could not find the"," program 'more' in your C: drawer.")
call quit()
end
test=Switcher(TOWB)
if test~='OK' then do
call req_tell("Sorry!"," This script expected to find "," your workbench screen open.")
call quit()
end
filename="oz_news"
path="toaster:arexx/editor/oz/"
name=path||filename
if ~exists(name) then do
path=currentpath()
name=path||"/"||filename
end
if ~exists(name) then do
call req_tell("Sorry!" name," This script could not find the"," OZ_docs document files")
call quit()
end
address command "run c:more " name
quit:
call remlib('ToasterARexx.port')
call remlib('PROJECT_REXX_PORT')
exit